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LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
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1B-sep-19 4 oi AX-11 Bliss-32 V4.0-7 
14-Sep-1984 12: LIBRAR.SRCJINPUTHLP. b3 31 
MODULE ste atest” ( ! Get next Line of Help text 


[Dent = vO4~000" 
BEGIN 


' 
leeeneeeeneeneneennnseeennenneeneerenrnereereetretenenennentnnenneenereneners 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ag Ls 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biCeee AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 10 ANY 
i: Paanstehetee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
'® CORPORATION. 


i DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITH 
TAL 


ae ee ee eae eae ea ea eae ea Raa ee 


SRR R REAR AREER AEREEARAEEA AREER EAA EAE AAE AERA REAR 
'4¢ 
! 
: FACILITY: Library command processor 
i ABSTRACT: 
The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 
command. It utilizes the Librarian procedure set to perform 
the actual modifications to the Library. 
{ ENVIRONMENT 


VAX native, user mode. 


i AUTHOR: Benn Schreiber, CREATION DATE: 20-Aug-1979 
{| MODIFIED BY: 
v03-005 esagee? Greg Awdziewicz 18-May-1984 


e v03-003) Allow the quotation marks (x22). 
Prohibiting them had broken the PL/I help Library. 


v03-004 GJAQ080 Greg Awdziewicz 7-Apr-1984 
- (See v03-003) Allow the period (x2€). 
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v03-003 


v03-002 


v03-001 


7 
1BaSep-1986 1:85:41 YarctT BLis9=32 v4.0-743 | 


GJA0076 Greg Awdziewicz 11-Mar-1984 

= (See v03-002) Also exclude the quotation marks (x22), 

phe comma (x2C), and the period (x2E) and their associated 
bit siblings: xA2, xAC, and xAE. 


GJA0067 Greg Awdziewicz 22-Feb-1984 

- Include the first character of a key in the check for 

valid symbols. 

- Expand the valid symbol set for help keys to be all 
rinting characters (including the DEC Supplemental 
raphic Set of the DEC Multinational Character Set) 

excluding the space (x20), the exclamation mark (x21), 

the del (x7F), and their & bit pros tages KAO, xAl, and xFF. 

ALL control characters continue to be invalid, 

although the horizontal tab is considered to be a 

delimiter, just like a space. 

- Remove the unused routine Make_upper_case. 


JWT0089 Jim Teague 13-Jan-1983 
Clear up 9th Level HELP problem. 
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ee dd ed wd od od 


Y 
"SYSSLIBRARY:STARLET.L32'; 
REQUIRE 
*PREFIX'; 


REQUIRE 

"LIBDEF*; 
REQUIRE 

"LBRDEF’; 
— ROUTINE 


“ 
zDwaw 


MMAMMZMNMS 
ONNnnanna 


lbr$replace_key : ADDR 


rei 44 ze, 
Libetl : BLOCK fed 
tlmsk : BLOCK (1J, 
inet : REF BBLOCK, 
Libfdb : REF BBLOCK; 


ITERAL 
u 


key, 
nvkeychar, 

nserterr, 
_deldaterr, 
_inserted, 
s-repieced 
$_il keylvl, 
$_keynaming, 


EX7Te 


PAPAAAT™ AAAHAG 


te ts hs es es et ot 
sh AMAA AA 


_dupmod, 
pe-cupsodule, 
LibS_nonlptxt; 


(el aul eel eel cel eel el eee ae ee * cee cel el ed 


a 


FORWARD ROUTINE 
As hey.on, | (ne, 
symbol _char, 
scan_word, 
skip_blanks; 
OWN 
Lineptr, 
endptr, 
curchar, 


MODE ( 
MOD 


rmsstv : ADDRESSING_MODE (GENERAL), 


LIBRAR.SRC 


ICREgHOE SSESGL UGRLAPAESaR Hz 


'Log operation on console 
‘Record module names for LUH 
'Read next input record 
‘Convert decimal to binary 
‘Write record to Library 
'Read/update module header 
‘Terminate PUT 

tLookup key in Library 
'Insert key into Library 
‘Delete key 

‘Delete data 

‘Replace or insert key in index 


'RMS STV from Library procedures 
!Max Length of keys 

pp aerery control index 

‘contro cone 

‘Input file FDB 

‘Library file FDB 


‘Duplicate module — 

! Invalid character in key. 
‘Error inserting 

‘Delete data error 
‘Successfully inserted 
‘Successfully replaced 
‘Illegal key leve 
leueeeee key length 
‘Duplicate module 
‘Duplicate module warning 
'No help text found 


! Carriage return 
! Line feed 


‘determine if key on Line 
‘Determine if character is a symbol 
‘Scan a word 

'Skip blanks 


‘Pointer into Line 


‘Pointer to end of Line 
‘Current character 


INPUTHLP.B32;1 


vbt=boor “th =$25-198¢ 93:38:63 EfananeSaeSineuYncP 038: 1 tee”) 


cg } Linedesc : BBLOCK Cdsc$c_s_bin]; !String descriptor for input Line 

4 1 BIND | 

3; 146 1 Linelen = Linedesc Cdsc$w_ tong th] : WORD Length of ine read 
45 1 Lineaddr = Linedesc [dsc$a_po Ynterd : REF VECTOR BYTE]; !And address of Line | 


rf ? 
LIB_INPUTHLP 6-Sep-1984 AX-11 Bliss-32 V4.0-74 P 
vot=b00 132380=1 384 93: 33:0 LIBRAR.SRCJINPUTHLP.B32;1 — (3) 


1 GLOBAL ROUTINE Lib_input_hip = 
BEGIN 


OooCoO 


les 

; FUNCTIONAL DESCRIPTION: 

; This routine inserts help text modules into a help library. 
' 


ODONOW 


ROUTINE put_record (Linedesc, txtrfa) = 
BEGIN 


144 
Local routine to write record to Library 


rms_perform (lbr$put_record bat 1 + Libctl, a toomeee hee rfa), 

Lib$~ $gi_libfd 
RETURN true 
END; 


-writeerr, .lbr$gl_rmsstv, 1, Lib db Cfdb$l_namdesc]); 


Se ee Oe Fe Be Oe Se Oe Se Oe Se Se Oe Se Se SH Se Se Se Se Se Se es 
ee ne 2“ 9 = 2 Ls a SS = = 


PAERXAPRXPEXAEAPA AAPA MAINA 
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ODNAOVE WN“ OOONOUS WN —O0On 
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NOUS WN (“OO ONOUS WO 


- TITLE L18 ler 
-IDENT \v0%-00 


-PSECT SOWNS,NOEXE,2 


00000 LINEPTR:.BLKB 4 
00004 ENDPTR: .BLKB 
00008 CURCHAR:.BLKB 4 
O000C LINEDESC: 
‘BLKB 8 
LINELEN= LINEDESC 
LINEADDR= LINEDESC+4 
EXTRN LIB_LOG OP, LIB_L UPD 
GET“RECORD, LIBSCVT-DTB 
LBRSPUT_RECORD CORSSEe NODULE 
LBRS$PUT END, LERSLOOKU p~ 


LBRSREPEATE X KEY 
LBRSGL -RMSSTV, LIBSGL wun 


SCODES NOWRT, 2 


L1B_INPUTHLP 1Sese -Sep-1984 01:55:41 AX=11 Bliss-32 V4.0-74 Pa 6 
voe=000 14- 0-1 984 9:38:08 LIBRAR.SRCJINPUTHLP.B32;1 (3). 


0000 00000 PUT_RECORD: 
WORD 


; Routine Size: 53 bytes, Routine Base: $CODE$ + 0000 


. Save rs, oe $ 1336 | ; 

7E 04 AC 7D 9002 Rova | LINEDESC, =(sP) 3 1225, ; 

00006 CF 9F PUSHAB L1BSGL Lec ; | ; 

000000006 99 FB sar CALLS #3, LBRSPUT "RECORD : | ; 
D E BLBS STATUS. : : 

000000006 dD PUSHL  LBRSGL_RMSSTV : | ; 

OD BOOT PUSHL STATUS : | : 

7E 00006 CF 10 ¢1 or¢ ADDL3 #16, LIBSGL_LIBFDB, -(SP) : : 
01 DD 000 PUSHL #1 : | ; 

008610D2 BF DD 00024 PUSHL #8786130 : | : 

000000006 90 05 FB 002A CALLS #5, LIBSSIGNAL : ; 
0 1 D0 00031 1s: MOVL #1. RO : 1226 ; 

04 00034 RET + 1227 ; 


= ere ee _ re 


38:6 


ROUTINE cleanup (txtrfa) 
BEGIN 


Clean up written text, module is no good. 


taects Crfa$l_vbn] NEQ 0 
Lor$put_end (Lib$gl_Libctl) 


AEAN —OODONOULS WN 


'Wwrite end of module record 


! and delete the works 


porsdelete_date (LTiBSgl_Libetl, .txtrfa); 
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000000006 00 
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000000006 00 
50 


ouonrwoon 
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oooooo 


; Routine Size: SCODES + 0035 


Save nothing 
TATRFA 


1$ 
LIB$GL_LIBCTL 
#1, LBRSPUT_END 
TXTRFA 


LIBSGL_LIBCTL 
#2, LBRSDELETE_DATA 
#1, RO 


o 


AX=11 Bliss-32 V4.0-74 
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o- 


< 


? 
LIB_INPUTHLP 1h-5op=1984 01:55:41 VAK=11 BLiss-32 vé.0-7% 5 8 
boe=000 aes 7a dh tt pC wr 655 | 


19 pout ine insertkey! (keydesc, txtrfa, replacing, deltxtrfa) = 


'e4¢ 
Local routine to insert or replace a key! in the index. 


— 
SESS2E 


MAP 
keydesc : REF BBLOCK, 
txtrfa : REF BBLOCK 
deltxtrfa : REF BBLOCK; 


' 
Determine if replacing or inserting this module 


IF .LibSgl_ ctlmsk Clib$Sv_replace] 
THEN BEGIN 
rms_per form ecnrrcostece, Sev abe 1 Libctl, hig ag -delt 
LibS_inserterr, .lbrSgl_rmsstv, 2, keydesc, 
IF .replacing 


x 

l 

THEN rms_perform (lbr$delete_data (Lib$gl_libctl, .deltxt 

_ Lib$_deldaterr, .lbr$gl_rmsstv, 1, Li Libfdb Cfdb$l_namdesc]); 


ELSE 
BEGIN 
LOCAL 


status; 
status = Lor$insert_key (Lib$gl_libctl, .keydesc, .txtrfa); | 
My -Status 


BEGIN | 
IF status NEQ Lbr$_dupkey . 
ag SIGNAL ( Lib$_Tnserterr, 2, keydesc, Lib$gl_libfdb Cfdb$l_namdesc], .status, .lbr$gl_rmsstv 


BEGIN ! duplicate module, cleanup and continue 
oo cleanup (txtrfa); 


a), 
Cfdb$l_namdesc]); 


SNA AAA AAA AAA MMIII 


fa, .txtrf 
$gl_libfdb 
a) 
gl 
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Lib_log_upd ((IF .replacing THEN Lhe$c replaces 
; _ ELSE lhe$c_inserted), .keydesc ); 
Lib_log_op ((IF .replacing THEN Lib$ replaced : : 
ECSE Lib$_inserted), .keydesc, .Lib$gl_lLibfdb); 


HSFILL (0, rfa$c_length, txtrfa Crfa$l_vbn]); 


C 
RETURN true 
END; 
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LIBRAR.SRCJINPUTHLP.B32;1 


R4,R5,R6,R7,RB,RI,R10 
Ett’ riod 

RTERR, RO 

FOB, RB 

R 


MSSTV, R6 
BSGL_CTLMSK+1, 2$ 


#4, LBRSREPLACE_KEY 
STATUS, 
LBRSGL_RMSSTV 

ATUS 


T 
#16, LIBSGL_LIBFDB, -<(SP) 
KEYDESC 


Rd 

#6, LIBSSIGNAL 

REPLACING, 4$ 

DE TXTRFA 

#2 LBRSDELETE_DATA 
LBRSGL _RMSSTV 

#16, LIBSGL_LIBFDB, -(SP) 


#LIBS$_DELDATERR 
#5, LIBSSIGNAL 


KEYDESC, -(SP) 
#3, LBRSINSERT_KEY 
STATUS, 

STATUS, #LBRS$_DUPKEY 
LBRSGL_RMSSTV 

STATUS 

#16, LIBSGL_LIBFDB, -(SP) 
KEYDESC 


R 

#6, LIBSSIGNAL 
TXTRFA 

#1, CLEANUP 
KEYDESC 

; Spates 5$ 
a 

6$ 


"3 
#2, LIB_LOG_UPD 
LI16$GL_CIBFOB 
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» 46, @TXTRFA 


$_INSERTED 
» LTB_LOG_OP 
(SPT, #0 
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00 


Routine Base: $CODE$ + 0059 


229 bytes, 


; Routine Size: 


LB. AnnUTHLP 


337 


; Routine Size: 


a = a a a 


1 
1 


00 2 ROUTINE put_end = 

01 BEGIN 

08 

7 '+¢ 

$8 ! Local routine to call lbr$put_end 

09 rms_perform (lbr$put_end (Lib$gl_libctl), 
19 LibS_writeerr, .lbr$gl_rmsstv, 1, 
\§ : RETURN true 

13° 2 END; 


0000 00000 


00006 oF 


wo 
oo 
oo 


000000006 % 
000000006 
7E 0000G CF 


008610D2 
000000006 98 
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49 bytes, Routine Base: $CODE$ + 013£ 
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4 9}: 5:4 AX=-11 Bliss-32 V4.0-74 
: 58:0 LIBRAR.SRCJINPUTHLP.B32; 1 


LibSgl_libfdb Cfdb$l_namdesc]); 


PUT_END:.WORD Save wey. 
PUSHAB L 


1$: 


S LIBSGL_LIBC 
CALLS #1, LBRSPUT_END 
BLBS STATUS, 

PUSHL LBRSGL_RMSSTV 
PUSHL STATUS 


ADDL #16, LIBSGL_LIBFDB, -(SP) 


#8786130 
CALLS #5, LIBSSIGNAL 
' #1, RO 


Page 


Bete Se Se Be Se Se Se Se Be Be Be 


mM 7 
LIB UTHLP 16-Sep-1984 01:55:41 AX-11 Bliss-32 V4.0-74 Page 1 
vous =400 14- 71 9be 93: 8:03 LIBRAR.SRCJINPUTHLP.B32; 1 ° (7 
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; 260 1314 ' ; 
: 261 1315 ! Main body of Lib_input_hlp : 
; 26 1 1$ ! $ 
3; € 131 : 
; 264 1 8 LOCAL : 
; 265 131 keyname : VECTOR Clbr$c_pagesize, evred. a they name yhen up cased ; 
; 266 1320 found!, True when key! found : 
; 267 1321 current_level, ortets level of key : 
; 268 1 ¢ get_status, ‘status from reading’ input file ; 
; 269 1 ret_status, ‘status from last Library operation ; 
: 270 1324 level, 'new level : 
; er 1325 replacing, ; 
; i 1326 de txtrfa : BOL OK cetete stengthd, 'RFA of text to delete $ 
Be ar 1327 txtrfa : BBLOCK (rfasc Length 'RFA returned from PUT RECORD ; 
; 276 1328 keyldesc : BBLOCK Cdsc$c_s bind, ‘String descriptor for saved key! : 
; fe ; 4 keydesc : BBLOCK Cdsc$c eS s5tnd; 'String descriptor for key : 
; err 1331 current level = 0; ; 
; 278 1 3 found! = false 3 
3 444 133 CHSFILL (Oo. r fase length, txtrfa); : 
; 280 1334 ; 
5 $e) 133? | Read records until end of file | : 
; $8 1337 WHILE coet.stetus = get_record (linedesc)) NEQ rms$_eof DO | ; 
> «284 1338 BEGIN 3 
; «285 1339 ! ; ; 
3 $e9 1379 Check for RUNOFF Lines and remove <CR><LF> : 
: 288 16 3 IF ,linedesc Cdsc$w_length] GEQU 2 AND ! If Line has two or more characters | ; 
; a 1345 3 .(. Linedesc Cdsc$a pointer] + .lLinedesc Cdsc$w_length] -2)<0,16> 3 
; $30 1306 $ EQLU (CR OR LF*B) ! and Last two are <CR><LF> | : 
3 $36 1368 ; Linedesc Cdsc$w_length] = .Linedesc Cdsc$w_length] - 2; ! Strip off last two characters : 
e i ao 
3 294 1348 3 IF Saker on_line (level, keydesc) 3 
; 295 1349 4 TREN A 3 
; 296 1350 4 IF NOT . found! 'If havent found key! yet : 
: 944 1351 5 THEN BEGIN 3 
; 298 1326 5 IF . level NEQ 1 ! and this is not level 1 3 
; $30 1353 6 THEN BEGIN ; : 
; 300 1354 6 SIGNAL (Lids ti theyll, 4, .level, keydesc, Lib$Sgl_inpfdb Cfdb$l_namdesc], 1) : 
3s 30 1355 6 cleanup (txtrfa); | : 
3 34 1356 6 RETURN LibS_illkeylvl; 3 
; 30 1357 5§ END; | ; 
: 304 1358 5 END 3 
: WO 1359 5 F 
: 306 1369 5 ELSE BEGIN 'This is not first key1 3 
: 307 1361 5 IF .level GTR .current_level 'If greater than current level 3 
; 308 1368 5 - - level NEQ .current_level+1 3 
; 309 1365 5 . level F 
; 310 1364 6 THEN. é : ; : 
3 «(511 1365 6 SIGNAL gt: oi tikeylvl, 4, . level, keydesc, LibSgl_inpfdb Cfdb$l_namdesc], .current_level); | 3 
: \¢ 1 $6 6 cleanup (txtrfa); : 
; 31 136 RETURN Libs. “iltkeylvl; : 
3 14 1 os END; : 
: 15 139 : 
; 316 1370 5 current_level = .level; 'Set new current level : 
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3 S17 1371 4 END; 
; 318 1 if; 4 
3 «(S19 1375 4 IF .level NEQ 1 'If not first Level 
; : a ? THEN put_record (linedesc, txtrfa) i then write the record 
; 1376 4! | 
3 ‘ 1 - 4 ! This is level 1 key. If we have seen level 1 before, then finish writing previous module 
: 35 : A 2 and insert the key. Then check new key Length and save descriptor. 
; : 
; 6 1380 2 ELSE BEGIN 
S Ber 1381 
; 328 1 B¢ 5 IF_.found! !If writing one already 
; $3 1 6 THEN BEGIN : 
3 0 1384 6 put_end (); !Write end of module record 
: Ht 1385 8 insertkey! (keyldesc, txtrfa, .replacing, deltxtrfa); 
: 338 1389 3 — 
; 334 1388 5 IF shevévec Cdsc$w_length] GTR .Lib$gl_keysize 'Check key length | 
; 3 1389 6 THEN BEGIN i 
; 336 1390 6 SIGNAL (LibS_keynaming, 2, keydesc, Lib$gl_inpfdb Cfdb$l_namdesc]); 
; 337 1391 6 RETURN Lib$_Keynaming; 
. ne a 
; 340 1394 5 CHSMOVE f -heydesc Cdsc$w_length], .keydesc Cdsc$a_pointer], keyname [1]); ! Store key1 | 
: 341 1395 5 keydesc base e.pointerd = keyname C1); 
g 308 1396 5 peznene OJ=. aypece Cdsc$w_lengthj; ' set length 
; 34 1397 5 CHSMOVE (dsc$c_s_bin, keydesc bey twee? ! and copy it to a safe place 
: 344 1398 3 replacing = \br$Tookup_key (Lib$gl_libctl, keyldesc, deltxtrfa); | 
; 346 1400 5 IF NOT .LibSgl_ctlmsk Clib$v_replace) ‘If not replacing Rae | 
; 347 1401 5 AND ‘foe acing ! but module already in Library 
: eee 1O0e $ THEN BE IN 
; 350 1404 6 : Stgnat duplicate now and then process it. It will be caught again later 
5 $2) ibe ? : nd deleted. 
; 328 1407 6 SIGNAL (Lib$_dupmodule, 3, keyname, Lib$Sgl_inpfdb Cfdb$l_namdesc], 
; 354 1408 6 LibSgl_libfdb Efdbst_namdesc)); 
; 355 1409 5 END; 
; 356 1410 5 
; 397 1411 5 put_record (Linedesc, txtrfa); ‘Write the first record 
; 358 lg 5 found! = true; 'Flag keyl found 
: 359 1413 § current_level = .level; 'Set current level 
3 60 1414 & ; 
: 361 1415 4 END 
3 oe 1416 4 ; 
; 36 1417 ELSE IF . found! ‘Not a od Line, if we have seen ak. 
; $08 1018 THEN put_record (Linedesc, txtrfa); i then write this Line to module 
; 366 1030 END; 'Of WHILE loop 
: 367 1421 
3 8 14 § : . 
: 369 14 ! Done reading input file 
s 370 1424 : 
: 71 1425 
$ 3 1426 IF NOT . found! 2 ; ; 
3; 37 1427 THEN SIGNAL (Lib$_nohiptxt, 1, LibSgl_inpfdb Cfdb$l_namdesc)) 
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; The module ended with end of module. finish the module now. 


ELSE BEGIN 
put_end (); 'Wwrite end of module record 
zoger Cnees (keyidesc, txtrfa, .replacing, deltxtrfa); ! and then insert the key 


| 
Ot te kt a 
, eh ee ee el ee ee ek 


WONOULS W000 


RETURN true 
END; 


; INFO#250 ui 


1385 ! Of Lib_input_hlp | 
Referenced LOCAL symbol REPLACING is probably not initialized 


: 380 


| 
OFFC 00000 ENTRY L 18, INPUT -HLP, Save R2,R3,R4,R5,R6,R7,RB,- =; 1205) 
5B 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R11 : | 
SE FDDC CE 9E 00009 MOVAB =548(SP), SP : 
56 D4 O0000E CLRL = CURRENT_LEVEL > 1331) 
59 D4 00010 CLRL_ —-~ FOUND1 ; 1332, 
06 00 6E m= 09 2c O00t¢ MOVCS #0, (SP), #0, #6, TXTRFA 3 133 | 
0000" CF 9F 00019 1$: PUSHAB LINEDESC ; 1337) 
00006 CF 01 FB 9001p CALLS #1, GET_RECORD : 
SA 50 pO 002@ MOVL RO, GET-STATUS : 
0001827A BF 3A D| 90085 CPL GET _STATUS, #58938 ; | 
o1$8 31 0002E BRW 18$ : 
02 0000' CF 81 00031 2s: CMPW LINEDESC, #2 > 1342, 
17 1F 909 6 BLSSU3$ : 
0 0000' CF 3¢ 00038 MOVZWL LINEDESC, RO > 1343 
0 0000" CF CO 00030 ADDL2 LINEDESC+4, RO : 
OAOD BF FE AQ 81 0042 cMPW 3g (F0)- #2573 + 1344 
0000" CF 02 AS O04A SUBW2 #2, LINEDESC > 1346 
04 AE 3 OO4F 3$: PUSHAB KEYDESC : 1348 
04 AE OF 0032 PUSHAB LEVEL ; 
0000v cf Q FB 0095 CALLS ‘ : I$_KEY_ON_LINE ; | 
00F4 5 MieD BRW mgs F 
57 3 44 b068 4$: MOVL LEVEL, R7 ; 1352) 
09 2 E8 0006 BLBS FOUND, 5$ : 
01 7 D1 00066 CMPL = R7, #1 : 
41 13 00069 BEQL 108 ; 
01 DD 00068 PUSHL #1 > 1354 | 
14 11 00060 BRB aS ; 
56 57 01 O06F 5$: CMPL R7, CURRENT_LEVEL 3 1361) 
09 15 99 2 BLEQ 6$ ; 
50 01 Ag 9 074 MOVAB 1(R6), RO : 1362 
50 p 0078 CMPL =e R27, _ RO ; 
4 : 0078 BNEQ 7$ F 
7 D5 00070 6$ TSTL = R? > 1363 | 


Be Se Be Be Se Se Ge Ge Ge Be Se Se He Se Se Se Se Se Se Ge Ge Se Se Se Fe Fe Se Se Se Se Ge Ge SSH Se Se Se Se Se See Se Se Se Se Se SH SH Se Se Se Se Se Se Se Seas 


a 
LJ8.|NpUTHLP 1$-3e0-1984 ui av-11 BLi8tc32 v4 0-743 | 


1 
a8 IE AHR ng, BIEL Phan : 
7E 00006 CF 8 gi 0 3 8$: ADDL ff set Hebel 1 INPFDB, (SP) : 
0c Ag F 000 PUSHAB ; 
3 sr 3 
000000006 8F DD 000 5 PUSHL #188 ILLKEYLVL : 
68 6 FB 4943 CALLS #6, LIBSSIGNAL ; 
14 AF 9F 000 PUSHAB TXTRFA : 
FE25 cf 0 re 009¢ CALLS #1, CLEANUP ; 
0 000000006 8F BO 00041 HOVL #LIBS_ILLKEYLVL, RO : 
56 57 D0 Ns 9$ MOVL R7, CURRENT_LEVEL : 
01 57 Dt OOAC 10$ CMPL =? #1 : 
03 13 OOOAF BEQL «=s«a118; ; 
00A3 31 00081 BRW 168 ; 
15 59 €9 00084 11$:  BLBC FOUN 12$ ; 
FFI3)— OCF 00 FB 00087 CALLS #0, but END ; 
; 1¢ AE 9F O00BC PUSHAB DELTXTRFA ; 
58 DD OOOBF PUSHL REPLACING ; 
1¢ AE 9F 000C1 PUSHAB TXTRFA : 
18 AE 9F 000C4 PUSHAB KEY1DESC : 
FEIE CF 04 FB 000C7 CALLS #4, INSERTKEY1 ; 
00006 CF 04 AE 10 00 ED b90ct 12$: CMP ZV #9 #16, KEYDESC, LIBSGL_KEYSIZE : 
7E 00006 CF 10 C1 00006 ADDL3. #16, LIBSGL_INPFDB, -(SP) ; 
08 AE 9F 000DC PUSHAB KEYDESC : 
02 OD O00DF PUSHL ; 
000000006 8F DD O00E 1 PUSHL #LIB$_KEYNAMLNG : 
6B 4 FB 000E7 CALLS #4, LIBSSIGNAL 3 
50 000000006 &F B0 OOOEA OVL #LIBS_KEYNAMLNG, RO : 
25. AE 08 BE 04 AE 28 000K 2 13$:  MOVC3 KEYDESC, @KEYDESC+4, KEYNAME+1 ; 
08 AE 25. AE SE OOF) MOVAB  KEYN. YNAME 1. KEYDESC +4 ; 
34 AE 04 AE 90 00 FE MOVB KEYDESC KE YNAME ; 
Oc AE i‘: 2 08 @8 0010 MOVC3 EYDESC, KEYIDESC : 
1¢ AE 9F 00109 PUSHAB DELTXTRFA : 
10 AE 9F 0010¢ PUSHAB K gc. : 
00006 CF 9F 0010F PUSHAB LIB$GL_LIB ; 
000000006 00 03 FB 0113 CALLS . LBRSLOOKUP_KEY r 
58 50 DO OO11A MOVL RO, REPLAC F 
1D 00006 CF 03 E0 00110 BBS a5 TiBSGL _CTLMSK+1, 14$ : 
1A 8 €9 001 BLBC REPLA ACING, “1 : 
7E 0000G CF 10 (1 ot 6 ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 
7E 00006 CF 1 ci ioc ADDL3) #16, LIBS$GL~ TAPE DB. -(SP) : 
2c AE F 4 PUSHAB KEYNAME 
0 DD 001 PUSHL @# 
000000006 8F DD 001 PUSHL #LIB$_DUPMODULE 
68 05 FB 00130 CALLS #5, LIBSSIGNAL 
14 AE OF O14 148: PUSHAB TXTRFA 
0000' CF 9F 0014 PUSHAB LINEDESC 
FD45 cf G2 FB 0014 CALLS #2, PUT RECORD 
9 DO 0014¢ MOVL #1. FOUND 
56 7 b O14F MOVL 7, CURRENT_LEVEL 
F 11 001 é BRB 17$ 
0c 9 E9 0154 15$: BLBC —«*FOUND1, 17$ 
14 AE 9F 00157 16$:  PUSHAB TXTRFA 


pa ee . nuindapsaiaiaibeiie 
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; Routine Size: 405 bytes, Routine Base: $CODES + O16F 


0000' cf OF 15A PUSHAB 5 NEDESC : ‘ 

FO2E CF fe 1 CALLS , PUT_RECORD : : 
FE 165 17$: au 3 1337) ° 

13 Eo 1 18$: BLBS A aa i} : 1358 | ‘ 

7E 00006 CF : ci ADDL 4 lisser. INPFDB, =(SP) ; 1427, : 
, 000000006 F DD 001 j PUSHL #188 NOHLPTXT : | : 

FB Wer CALLS 3 P LIBSSIGNAL : | : 

FEE CF 00 FB 0017C 198 CALLS , PUT_END $1434, : 
1¢ Ag 9F 00181 PUSHAB DECTXIR TREA : 1435) : 

5 po 184 PUSHL REPLACING ; 3 

If AE 9F 001 6 USHAB TXTRFA : : 

1 AE 9F 001 PUSHAB KEYIDESC : : 

FD59 cr 04 FB 0018C CALLS #4, INSERTKEY1 : ; 
0 01 pO 00191 208 MOVL #1, RO : 1438 : 

04 00194 RET + 1439 : 


5 oe allel 


$ 4 1st? 1 
; 8 144 

; 389 1306 

; 390 144 

; 391 1644 

3 95 1445 

; 9 1209 

3 94 144 

i 396 1209 

3 3 1450 

; 398 1451 

; 99 14 § 

; 400 14 

; 401 1454 

; 40 1455 

; 40 1628 

: 404 145 

; 405 1338 

: 406 145 

3; 407 1460 

; 408 1461 

; 409 1608 

; 410 146 

: 411 1464 

; zi8 1465 

; 41 1466 

; 46146 1467 

; 615 1468 

; 416 1469 4 
; 617 1470 4 
; 418 1471 & 
: 419 1076 4 
; 420 1473 4 
3; 421 1474 & 
: 6 ; 1475 3 
$s 1476 2 
: 624 1477 #1 


ia al 
so 


8 
sects 38 


NE is_key_on_line (level, keydesc) = 


S$ routine returns true if there is a <number><key> 
! on a Line and false if not. 


keydesc : REF BBLOCK; 


LOCAL 
tokenptr, 
tokenlen; 


IF .Linelen EQL 0 THEN RETURN false; 


Lineptr = .lineaddr =- 1; 

endptr = .Lineaddr + .Linelen;: 
curchar = CHSRCHAR (.Lineptr + 1); 
IF .curchar LEQU ZASCII'O 

OR .curchar GTRU ZASCII ‘9° 


THEN RETURN false 
ELSE BEGIN 
skip_blanks (); 
tokenlen = scan_word (); 
tokenptr = .lineaddr; ’ 
IF NOT Lib$Scvt_dtb (.tokenlen, .tokenptr, .level) 
THEN RETURN false; 
IF NOT skip_blanks () 
THEN RETURN false 
ELSE BEGIN ‘ 
tokenptr = .lineptr; 
tokenlen = scan_word (); 
keydesc fdsc$u_Cength) = .tokenlen; 
keydesc [dsc$a_pointer] = .tokenptr; 
44 URN true; 


END; 
END; !Of is_key_on_Lline 
001C 00000 IS_KEY_ON LINE: 
.@ORD 
54 0000" CF s $000 MOV 
50 FC = AG 000 MOVZWL 
3 13 00008 BEQL 
AG 64 1 ¢3 00000 tte 
A 4 0 C1 ts ADDL 
0 FO A& 00 0001 OVL 
FB AG 01 AO 9A ith MOVZBL 
30 F8 A& D1 000 CMPL 
ah i 4 BLEQU 
39 FB AG OD 6 CMPL 
44 1A QOO2A BGTRU 
0000v CF 00 FB 0002C CALLS 


& AX-11 Ot leg se V4.0-74 
70 LIBRAR.SRCJI 


ave R2,R3,R4 
NEADDR, R4 
NELEN, RO 


RCHAR, #57 
, SKIP_BLANKS 


R90 Sr Dee 
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1 
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F 8 
LIB_INPU 16-Sep-19 
Lbe=b00 10-Sep-1984 12:38 LIBRAR.SRCJINPUTHLP.B32: 1 (8) V 
0000v CF 99 FB 00031 CALLS 4, SCAN WORD : 1463. 
D 3 MOVL RO, TOKERLEN : 
64 D MOVL LINEADDR, TOKENPTR : 1464. 
04 AC DD 0008C PUSHL LEVEL : 1465 
3¢ DD 0008 PUSHL  TOKENFTR ; | 
Dd 90041 PUSHL —TOKENLEN : 
900000006 99 0§ FB 0004 CALLS #3, LIBSCVT_DTB ; 
0 £9 000A BLBC ’ is : | 
o000v CF 00 FB see CALLS #0; SKIP_BLANKS ; 1467 
38 FO A& 00 oa MOVL LINEPTR, TOKENPTR : 1470 
o000v ¢f 09 FB 00059 CALLS #0, SCAN_WORD 2 1471 
25 08 at pO ooed a dm PE ae + 1472) 
60 ef 4 boos MOVW TOKENLEN, (RO) $ 
06 A0 $2 D0 00068 MOVL TOKENPTR~ 4(RO) : 1473 
50 01 0 o906¢ MOVL #1, RO 2 147% 
04 006 RET : 1461 
2 oe Ae 


; Routine Size: 115 bytes, Routine Base: S$CODE$S + 0304 


a ad liar 


984 


3; 4 $ 1078 1 ROUTINE scan_word = 

3 2 a4 qeeee 

3; 4 § 1481 i This routine returns the Length of the word which is B ties 
; 450 14 ¢ i to ye by sgeper and advances Lineptr to the character past 
; 431 14 i the end of the word. 

; & ¢ 1484 i 

: ¢ 1686 .* tpt 

: startptr; 

; 435 14 $ , 

3; 4 1488 startptr = | inept 

: 6 1337 WHILE CHSDIFF eaaber, -lineptr + 1) GTR O 

; 438 1490 DO BEGIN 

; 439 1491 curchar = CHSA_RCHAR (Lineptr) 

; rr 1636 IF NOT symbol_Char () THEN RETURN -lineptr - .startptr: 

; 44 1494 RETURN *Lineptr + 1 = .startptr; 

; 44 1495 1 END; 'Of scan_word 


000C 00000 SCAN_WORD: 
WORD 


. Save R2,R3 
53 0000" CF 9€ 0000 MOVAB LINEPTR 
5 63 D0 0000 MOVL _—LINEPTR. STARTPTR 
50 6 01 C1 O000A 1$: ADDL3 #1, LINEPTR, RO 
50 04 A3 D1 OOO0E CMPL _ ENDPTR, RO 
14 15 00012 BLEG 2$ 
63 06 00014 CL. —sLINEPT 
08 A3 00 B3 9A 00016 MOVZBL @LINEPTR, CURCHAR 
0000v CF 00 FB 0001B CALLS #0, SYMBOL_CHAR 
£7 50 Eg 00020 BLBS ’ 1$ 
50 63 52 ¢ 00023 SUBL3 STARTPTR, LINEPTR, RO 
04 00027 RET 
50 63 52 C3 00028 2$: SUBL3 STARTPTR, LINEPTR, RO 
50 D6 0002C INCL RO 
04 0002E RET 


; Routine Size: 47 bytes, Routine Base: S$CODE$ + 0377 


198¢ $2:38:05 — EMferancsneSineutnce.059; 1 
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1494 
1495 
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LAB. REUTHLP 


: 445 1496 1 ROUTINE skip_blanks = 

3 «6446 149 BEGIN 

: 46 1498 ' 

; 468 1499 ! This routine skips blanks and tabs in the input Line. 

; 449 1500 ' Returns true if skipped to non=-blank, non-tab character. 

$ te? : 03 Returns false if skipped to exclamation point or end of Line. 

: 65 150 WHILE CHSDIFF (.endptr, .lineptr + 1) GTR 0 

: 48 1504 § DO BEGIN : ' 

: $22 1505 curchar = CHSA_RCHAR st igegtc): 

; 655 1 06 IF .curchar EQC ZASCII'!" THEN 

3 t2$ : bf RETURN false 

; 458 1509 IF .curchar NEQ ZASCII* * AND .curchar NEQ %ASCII' * THEN 
; 459 1510 RETURN symbol_char (); 

: 460 15171 END; 

: 461 13i¢ RETURN false; ‘Return false for end of line 
; 462 151 END; 'OF skip_blanks 


0004 00000 SKIP_BLANKS: 
WORD 


P Save R2 
52 0000" CF 9E 90002 MOVAB LINEPTR, R2 
50 62 01 C1 00007 1$: ADDL3 #1, LINEPTR, RO 
50 04 A2 01 00008 CMPL _—s ENDPTR, RO 
20 15 O000F BLEQ 2 
62 D6 00011 INCL LINEPTR 
08 A2 00 B2 9A 00013 MOVZBL @LINEPTR, CURCHAR 
50 08 A2 dO 00018 MOVL  CURCHAR, RO 
21 50 01 9001¢ CMPL RO, #33 
10 13 OOO1F BEQL 2$ 
20 50 01 00021 CMPL RO, #32 
E1 13 00024 BEQL =s:*1$ 
09 50 01 00026 CMPL = RO, #9 
DC 13 00029 BEQL 6s 1$ 
0000v CF 00 FB 00028 CALLS #0, SYMBOL_CHAR 
04 00030 ET 
50 04 00031 2$: CLRL ~— RO 
04 00033 RET 


; Routine Size: 52 bytes, Routine Base: S$ CODES + 03A6 
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1506 
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LAB SREUTHLP 


; 464 1514 1 ROUTINE symbol char = | 
3 ret : 12 BEGIN 

; 46 1 i$ ! This routine returns true if curchar is a character that may be 

; 468 1 8 ! in a help key, and false if not. 
: 469 151 : 

; 470 1520 OWN 
: $f) 13 symbol ies. VECTOR tail ap AF gfe, © - !"), ! Tab, comma, space, & exclamation point. 
: 

; 47 1 C'! ere! *( tie 112 Bye BY Sanne FGHI JKLMNOPQRSTUVWXYZC\J*_‘ abcdefghijklmnoparstuvwxyz{i}~") 
S474 1554 Pe 123456789" 128466789, i28eSorb9 123086789, 12sabere ~123tsb 789° 193.86) 89 89286780 tokesepko. 

; 475 1525 hat the vector size has to be a multiple of 4 Large enough 

; 476 15 § i hog the + sth inclusive of the deli niting qustes oa counting the. | 
; «477 15 ! double quotes phe + pe Ay re coqents a single quote) as two. 

; 478 1528 ! However, the value used in the Ch$Find_ch lexical which follows, 

3 rt 13 4 ! is the actual number of the + Pines charcters.) 

; «4481 1531 IF CHSFAIL (CHSFIND_CH (4, delimiters, .curchar)) THEN 

: 48 133¢ IF CHSFAIL (CHSFIND_CH (93, symbolics. (XX'7F" AND .curchar))) THEN 

3 ret 1337 GNAL (Libs _invkeychar, » curchar, .curchar, Linedesc) 

; 485 1535 RETURN true; 

; 486 1536 

: 487 1537 RETURN false; 

; 488 1538 1 END; !Of symbol_char 


-PSECT SOWNS,NOEXE,2 
00014 DELIMITERS: 


™~ 
_ 
~ 
oOo 
Nm 
o 
o 
Oo 


ASCII <P, Th i 
29 28 27 26 25 24 23 22 21 00018 SYMBOLICS: 
vASCII « \!''#S%8" 0) #4+=./0123456789::<=>27@ABCDEFGHIN ; 
39 38 37 35 34 33 32 31 00 027 : 
48 47 46 45 44 43 42 41 40 00036 : : 
52 51 50 4F GE 4D 4C 4B 4A 00040 «ASCII \JKLMNOPQRSTUVWXYZC\<92>\J*_‘abcdefghijk\ ; 
61 60 5F 5D 5C 5B 5A 59 O004F : 
6B 6A 69 68 0005¢ : 
74 73 72 71 #70 6F 6E 6D 6C 0006 ASCII. \Lmnoparstuvwxyz{i }~\<0><0><0> : 
00 00 00 7E 7D 7C 7B 00071 : 
-PSECT $CODES,NOWRT,2 
000C 00000 SYMBOL_CHAR: | 
WOR Save R2,R3 : 1514 | 
53 0000" CF 9E 0000 MOVAB CURCHAR, R3 ; 
52 $3 p 000 MOVL CURCHAR, R > 1531) 
A3 04 é A QOO0A LOCC Re. #4, DELIMITERS ; 
0 O00F BNEQ =i : 
51 D4 00011 CLRL ss R11. ; 
31 dS 0013 1$ TSTL = RI : | 
2 12 0001 BNEQG 4$ ; 
52 07 00 eF 0017 EXTZV. #0, #7, R2, RO > 1532 | 
A 005D BF 0 3a 0001C LOCC =: RO,«#9%, SYMBOLICS : | 
| 
| 
| 


; Routine Size: 76 bytes, Routine Base: S$CODES + O3DA 


i 
8 
LIB_INPUTHLP 1b-se =1984 01:55:46 AX=11 Bliss-32 V4.0-74 P 

vou=000 Ve-Sep-1984 12:38:03 EC TaRAR’SRESINPUTHLP 039; 1 0 193 
2 12 000 BNEQ 28 ; 
D4 000 CLRL sR : 
ass oe 
04 A3 9F 00028 PUSHAB LINEDESC + 1533) 

52 DD 000 : PUSHL R F 
53 DD 000 PUSHL R : | 

a rae ; 

000000006 8F DD 00036 PUSHL #LIBS$_INVKEYCHAR : 
000000006 00 06 FB 33 CALLS #6, LIBSSIGNAL ; 
50 01 00 $o0d 3$ MOVL #1, RO + 1535 

04 00048 RET ; 
50 D4 00049 4$: CLRL —_ RO + 1537 
04 00048 RET : 1538 
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; 490 1539 0 END ELUDOM 


; PSECT SUMMARY 
: Name Bytes 


; pte + 1062 code + 120 data bytes 
3 Flapsed. Tine: 00: 

3 Lines/CPU Min: 451 
3 Lexemes/CPU-Min: 35679 
; ry Used: 224 pages 
; Compilation Complete 


iSoseo-t9gs 91:55:41 


AX-11 Bliss-32 V4.0- oes. 
LIBRAR.SRC INPUTH LP.B32;1 


-EXTRN LIBSSIGNAL 


Attributes 


SOWNS 120 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 1062 NOVEC, ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: Library Statistics 

ae eee hs Oe ea ee ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

; .$255$DUA28: CSYSLIBISTARLET.L32;1 9776 25 0 581 00:01.1 

; Information: 1 

; Warnings: 0 

3; Errors: 

é COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INPUTHLP/OBJ=OBJ$: INPUTHLP MSRC$: INPUTHLP/UPDATE=(ENHS$: INPUTHLP) 


roe 


~w 
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